home *** CD-ROM | disk | FTP | other *** search
/ 10,000 Great Games / 10,000 Great Games.iso / Product / 25 / Setup.exe / scripts / DefineButton2_49 / BUTTONCONDACTION on(release).as
Text File  |  2001-11-16  |  2KB  |  35 lines
  1. on(release){
  2.    call("/:CheckAceSplit");
  3.    set("/:Temp",eval("/:piles"));
  4.    while(eval("/:WhereAmI") < eval("/:Temp"))
  5.    {
  6.       tellTarget("_level0/PlayerCard0" add (eval("/:Temp") + "1") add "/Card01")
  7.       {
  8.          gotoAndStop(getProperty("_level0/PlayerCard0" add eval("/:Temp") add "/Card01", _currentframe));
  9.       }
  10.       tellTarget("_level0/PlayerCard0" add (eval("/:Temp") + "1") add "/Card02")
  11.       {
  12.          gotoAndStop(getProperty("_level0/PlayerCard0" add eval("/:Temp") add "/Card02", _currentframe));
  13.       }
  14.       setProperty("_level0/PlayerCard0" add (eval("/:Temp") + "1") add "/Card01", _visible, "1");
  15.       setProperty("_level0/PlayerCard0" add (eval("/:Temp") + "1") add "/Card02", _visible, "1");
  16.       set("/:Temp",eval("/:Temp") - "1");
  17.    }
  18.    tellTarget("_level0/PlayerCard0" add (eval("/:WhereAmI") + "1") add "/Card01")
  19.    {
  20.       gotoAndStop(getProperty("_level0/PlayerCard0" add eval("/:WhereAmI") add "/Card02", _currentframe));
  21.    }
  22.    setProperty("/PlayerCard0" add (eval("/:WhereAmI") + "1") add "/Card01", _visible, "1");
  23.    setProperty("/PlayerCard0" add eval("/:WhereAmI") add "/Card02", _visible, "0");
  24.    setProperty("/PlayerCard0" add (eval("/:WhereAmI") + "1") add "/Card02", _visible, "0");
  25.    set("/:piles",eval("/:piles") + "1");
  26.    set("/:allowSplit","0");
  27.    set("/:TotalBet",eval("/:TotalBet") + eval("/:CurrentBet"));
  28.    set("/:Money",eval("/:Money") - eval("/:CurrentBet"));
  29.    set("/:movingcard","split");
  30.    tellTarget("/moving")
  31.    {
  32.       play();
  33.    }
  34. }
  35.